home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / mac / QUIZ_Q.dxr / 00008_Return.ls < prev    next >
Encoding:
Text File  |  1998-05-14  |  897 b   |  46 lines
  1. global gQuitB, gPauseB, gPauseState, gOldtimer
  2.  
  3. on mouseEnter me
  4.   set the member of sprite the currentSpriteNum to "R ON ROLLOVER"
  5. end
  6.  
  7. on mouseLeave me
  8.   set the member of sprite the currentSpriteNum to "R NORMAL"
  9. end
  10.  
  11. on mouseDown me
  12.   set the member of sprite the currentSpriteNum to "R ON MOUSEDOWN"
  13. end
  14.  
  15. on mouseUp me
  16.   set the member of sprite the currentSpriteNum to "R NORMAL"
  17.   puppetSound(1, "soft metal")
  18.   tell the stage
  19.     set gPauseB to 0
  20.   end tell
  21.   tell the stage
  22.     set gPauseState to 0
  23.   end tell
  24.   tell the stage
  25.     set gQuitB to 0
  26.   end tell
  27.   tell the stage
  28.     set the visible of sprite 115 to 0
  29.   end tell
  30.   tell the stage
  31.     set the visible of sprite 116 to 1
  32.   end tell
  33.   tell the stage
  34.     updateStage()
  35.   end tell
  36.   tell the stage
  37.     startTimer()
  38.   end tell
  39.   tell the stage
  40.     continue()
  41.   end tell
  42.   updateStage()
  43.   forget(window "QUIZ_Q")
  44.   updateStage()
  45. end
  46.